00100	TITLE TTY
00200	;CAREYE TELETYPE COMMAND JUMP TABLE  --  NOVEMBER 1972.
00300	
00400		OPDEF PPIOT[702B8]
00500	
00600		EXTERN CROP,REFRESH
00700		EXTERN SX,SY,DEL,MAG
00800	
00900	;TELETYPE COMMAND STATE.
01000		DECLARE{CTRL,META,CHR}
01100	
01200	SUBR TTY
01300	BEGIN TTY
01400		PPIOT 2,-=250
01500		PPIOT 3,3003
01600		MOVEI 20
01700		OUTSTR [BYTE(7)15,12,0]
01800		SOJG .-1
01900		CALL(CROP)
02000		CALL(REFRESH)
02100	L0:	OUTSTR[BYTE(7)15,12,0]
02200	L1:	OUTSTR [ASCIZ"*"]
02300		INCHRW
02400		SETZM CTRL↔TRZE 200↔SETOM CTRL
02500		SETZM META↔TRZE 400↔SETOM META
02600		CAIN 0,15↔GO L1+1
02700		CAIN 0,12↔GO L1
02800		DAC 0,CHR
02900	
03000	;TEST FOR LETTER COMMAND.
03100		LAC 1,0↔ANDI 1,37
03200		CAIGE 0,"A"↔GO .+3
03300		CAIG  0,"Z"↔GO L3
03400		CAIGE 0,"a"↔GO .+3
03500		CAIG  0,"z"↔GO L3
03600	
03700	;WINDOW MOVING COMMANDS.
03800		CAIN 0," "↔GO L2
03900		CAIN 0,":"↔GO[LAC SX↔FAD DEL↔DAC SX↔GO L2]
04000		CAIN 0,";"↔GO[LAC SX↔FSB DEL↔DAC SX↔GO L2]
04100		CAIN 0,")"↔GO[LAC SY↔FAD DEL↔DAC SY↔GO L2]
04200		CAIN 0,"("↔GO[LAC SY↔FSB DEL↔DAC SY↔GO L2]
04300		CAIN 0,"/"↔GO[LAC DEL↔FSC -1↔DAC DEL↔GO L2]
04400		CAIN 0,"\"↔GO[LAC DEL↔FSC 1↔DAC DEL↔GO L2]
04500		CAIN 0,"*"↔GO[LAC MAG↔FMP[1.5]↔DAC MAG↔GO L2]
04600		CAIN 0,"-"↔GO[LAC MAG↔FDV[1.5]↔DAC MAG↔GO L2]
04700		GO L0
04800	
04900	L2:	CALL(CROP)
05000		CALL(REFRESH)
05100		GO L1+1
     

00100		EXTERN HISTOGRAM,TVCAMI,TVDSKI,MAKCUT
00200	
00300	L3:	PUSHJ P,@L4(1)↔GO L1
00400	
00500	L4:	NOP		;null.
00600		NOP		;"A"
00700		NOP		;"B"
00800		MAKCUT		;"C"
00900		NOP		;"D"
01000		NOP		;"E"
01100		NOP		;"F"
01200		NOP		;"G"
01300		HISTOGRAM	;"H"
01400		TVDSKI		;"I"
01500		NOP		;"J"
01600		NOP		;"K"
01700		NOP		;"L"
01800		NOP		;"M"
01900		NOP		;"N"
02000		NOP		;"O"
02100		NOP		;"P"
02200		NOP		;"Q"
02300		NOP		;"R"
02400		NOP		;"S"
02500		TVCAMI		;"T"
02600		NOP		;"U"
02700		NOP		;"V"
02800		NOP		;"W"
02900		NOP		;"X"
03000		NOP		;"Y"
03100		NOP		;"Z"
03200	
03300	NOP:	OUTSTR[BYTE(7)15,12]
03400		POP0J
03500	
03600	BEND
03700	END	TTY